      MODULE settmpgg_I
      INTERFACE
      SUBROUTINE settmpgg (NB, K, FILEHEAD)
      INTEGER, INTENT(IN) :: NB
      INTEGER, INTENT(IN) :: K
      CHARACTER (LEN = *), INTENT(IN) :: FILEHEAD
      END SUBROUTINE
      END INTERFACE
      END MODULE
